home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995…tember: Reference Library / Dev.CD Sep 95 RL / Dev.CD Sep 95 RL.toast / mac / Technical Documentation / develop / develop Issue 21 code / Hierarchical Lists / CMyDiskListBox.cp < prev    next >
Encoding:
Text File  |  1994-09-22  |  5.6 KB  |  192 lines  |  [TEXT/MMCC]
  1. // ===========================================================================
  2. //    CMyDiskListBox.h            ©1994 Jan Bruyndonckx All rights reserved.
  3. //    v1.0 18/6/94
  4. //
  5. //    A hierarchical demo listbox: displays the files on a volume (with icons)
  6. //
  7. // ===========================================================================
  8.  
  9. #include <files.h>
  10. #include <string.h>
  11. #include <strings.h>
  12. #include <lists.h>
  13. #include <resources.h>
  14. #include "UMemoryMgr.h"
  15. #include "CMyDiskListBox.h"
  16.  
  17. //----------------------------------------------------------------------------
  18.  
  19. typedef enum {        // our list can contain volumes, folders and files
  20.     tag_disk,
  21.     tag_folder,
  22.     tag_file
  23. } DiskTags ;
  24.  
  25. #if defined(powerc)
  26.  #pragma options align=mac68k
  27. #endif
  28.  
  29. typedef struct {
  30.     TwistDownHeader    hd ;
  31.     long            refNum ;
  32.     char            vRefNum ;        // yes, it should go in a byte…
  33.     Byte            tag ;
  34.     char            name[2] ;
  35. } DiskListRec, *DiskListPtr ;
  36.  
  37. #if defined(powerc)
  38.  #pragma options align=reset
  39. #endif
  40.  
  41. const Size DiskListRecSize = sizeof (DiskListRec)-2 ;    // don't count the name field
  42.  
  43. //----------------------------------------------------------------------------
  44. // Creation methods
  45.  
  46. CMyDiskListBox* CMyDiskListBox::CreateFromStream(LStream *inStream)
  47. {
  48.   return (new CMyDiskListBox(inStream));
  49. }
  50.  
  51. CMyDiskListBox::CMyDiskListBox (LStream *inStream) : CTwistDownListBox (inStream)
  52. { Cell cell = { -1, 0 } ;
  53.  
  54.   ExpandElement (cell) ;
  55. }
  56.  
  57. //----------------------------------------------------------------------------
  58. // Override this method from LPane.  So we get notified when the window gets wider,
  59. // and we can adapt our cell width accordingly.
  60.  
  61. void CMyDiskListBox::ResizeFrameBy (Int16 inWidthDelta, Int16 inHeightDelta,
  62.                                     Boolean inRefresh)
  63. { 
  64.   (*mMacListH)->cellSize.h += inWidthDelta ;
  65.   inherited::ResizeFrameBy (inWidthDelta, inHeightDelta, inRefresh) ;
  66. }
  67.  
  68. //----------------------------------------------------------------------------
  69. // Expand an element from the list.  This triggers a directory search and inserts
  70. // the items in the list.  For the top-level: get all the volumes.
  71.  
  72. void CMyDiskListBox::ExpandElement (const Cell theCell)
  73. { short                error, i; 
  74.   Cell                cell = theCell ;
  75.   Byte                buffer[100] ;
  76.   DiskListPtr        thisTwist = (DiskListPtr) GetCellPtr (theCell) ;
  77.   DiskListPtr        anElement = (DiskListPtr) buffer ;
  78.   
  79.   if (thisTwist == NULL)                        // this function is first called -> top level = volumes
  80.       { 
  81.         for (i = 1 ; ; i++)
  82.           { HParamBlockRec    block ;
  83.           
  84.           block.volumeParam.ioNamePtr  = (StringPtr) anElement->name;    //    the name…
  85.           block.volumeParam.ioVRefNum  = 0;                    //    0 means use ioVolIndex
  86.           block.volumeParam.ioVolIndex = i;
  87.  
  88.           error = ::PBHGetVInfoSync (&block);    
  89.           if (error)
  90.               break ;
  91.     
  92.           ::PtoCstr ((StringPtr) anElement->name) ;
  93.           anElement->tag        = tag_disk ;
  94.           anElement->vRefNum    = block.volumeParam.ioVRefNum ;
  95.           anElement->refNum        = fsRtDirID ;
  96.             anElement->hd.indent  = 0 ;
  97.             anElement->hd.flags   = kHasSubList ;
  98.           
  99.            cell.v = ::LAddRow (1, 32000, mMacListH) ;
  100.               ::LSetCell (anElement, sizeof (DiskListRec) - 2 + strlen((char*) anElement->name), cell, mMacListH) ;
  101.             }
  102.  
  103.         return ;
  104.       }
  105.       
  106.   short    vRefNum = thisTwist->vRefNum ;
  107.   long  parID    = thisTwist->refNum ;
  108.   short indent  = thisTwist->hd.indent+1 ;
  109.   
  110.   for (i = 1, cell.v++ ; ; i++, cell.v++)
  111.     { CInfoPBRec    block;
  112.     
  113.       block.dirInfo.ioNamePtr   = (StringPtr) anElement->name ;
  114.       block.dirInfo.ioVRefNum   = vRefNum;
  115.       block.dirInfo.ioFDirIndex = i;
  116.       block.dirInfo.ioDrDirID   = parID;
  117.  
  118.       error = ::PBGetCatInfoSync (&block) ;
  119.       if (error)
  120.         break ;
  121.         
  122.       ::PtoCstr ((StringPtr) anElement->name) ;
  123.       anElement->vRefNum    = vRefNum ;
  124.         anElement->hd.indent  = indent ;
  125.       if ((block.dirInfo.ioFlAttrib & 0x10) != 0)    // is a directory
  126.          { anElement->tag        = tag_folder ;
  127.           anElement->refNum        = block.dirInfo.ioDrDirID ;
  128.             anElement->hd.flags   = kHasSubList ;
  129.          }
  130.       else                                            // is a file
  131.          { anElement->tag        = tag_file ;
  132.           anElement->refNum        = 0 ;
  133.             anElement->hd.flags   = 0 ;
  134.          }
  135.          
  136.       cell.v = ::LAddRow (1, cell.v, mMacListH) ;
  137.         ::LSetCell (anElement, sizeof (DiskListRec) - 2 + strlen((char*) anElement->name), cell, mMacListH) ;
  138.     }
  139. }
  140.  
  141. //----------------------------------------------------------------------------
  142.  
  143. static void PlotSICN (Rect *rect, Handle sicnList)
  144.  
  145. // Draw the icon for a list element
  146.  
  147. { GrafPtr    port ;
  148.   char        saveState = ::HGetState ((Handle) h) ;
  149.   ::HLock ((Handle) h) ;
  150.  
  151.   BitMap    srcBits = { *sicnList, 2, { 0, 0, 16, 16 }};    // baseAddr, rowBytes, bounds
  152.  
  153.   ::GetPort (&port) ;
  154.   ::CopyBits (&srcBits, &(*port).portBits, 
  155.                 &srcBits.bounds, rect, 
  156.                 srcCopy, NULL) ;
  157.                 
  158.   ::HSetState ((Handle) h, saveState) ;
  159. }
  160.  
  161. //----------------------------------------------------------------------------
  162. // Be lazy and get the little icons from the System file.  If I'd design my own,
  163. // I'd make them a little smaller and use Geneva 9 for the text
  164.  
  165. const short sicnID[] = {
  166.     -3995,        //    tag_disk
  167.     -3999,        //    tag_folder,
  168.     -4000        //    tag_file
  169. } ;
  170.  
  171. void CMyDiskListBox::DrawTwistedElement (const Rect *lRect, 
  172.                                        const TwistDownRecPtr lElement,
  173.                                        const short lDataLen)
  174.                                        
  175. // Draw contents of a single list element, including icon.
  176.  
  177. { Point    pen ;
  178.  
  179.   ::GetPen (&pen) ;
  180.  
  181.   Handle h = ::GetResource ('SICN', sicnID[DiskListPtr(lElement)->tag]) ;
  182.   if (h != NULL)
  183.     { Rect box = { lRect->top-2, pen.h, lRect->top+16-2, pen.h+16 } ;
  184.       ::PlotSICN (&box, h) ;
  185.     }
  186.   
  187.   ::Move (21, 0) ;
  188.   ::DrawText (DiskListPtr(lElement)->name, 0, lDataLen-DiskListRecSize) ;
  189. }
  190.  
  191. //----------------------------------------------------------------------------
  192.